home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / comline.zip / COML_BAT.BAS < prev    next >
BASIC Source File  |  1990-10-20  |  3KB  |  66 lines
  1. CLS
  2. DIM V$(35)
  3.  
  4. OPEN "SFDOORS.DAT" for INPUT as #1
  5. FOR X% = 1 to 32
  6. INPUT #1, V$(X%)
  7. NEXT X%
  8. CLOSE #1
  9.  
  10. GETLASTNAME:
  11. FOR X% = 1 to LEN(V$(2))
  12.     Y% = X%
  13.     IF MID$(V$(2),X%,1)=" " then X%=LEN(V$(2))
  14. NEXT X%
  15. V$(33)=right$(V$(2),LEN(V$(2))-y%)
  16. FOR X% = 1 to LEN(V$(33))
  17.     IF MID$(V$(33),X%,1)=" " then MID$(V$(33),X%,1)="_"
  18. NEXT X%
  19.  
  20. OPEN "COMLINE.DAT" for INPUT as #1
  21. INPUT #1, COMLINE$
  22. CLOSE #1
  23.  
  24. FOR X% = 1 to LEN(COMLINE$)
  25. IF MID$(COMLINE$,x%,2) = "@V" THEN GOSUB GETVARNUM ELSE GOSUB MAKELINE
  26. NEXT X%
  27. GOTO DOSHELL
  28.  
  29. GETVARNUM:
  30. VTEMP$=MID$(COMLINE$,X%+2,2)
  31. VNUM%=VAL(VTEMP$)
  32. SHELLINE$=SHELLINE$+V$(VNUM%)
  33. RETURN
  34.  
  35. MAKELINE:
  36. IF MID$(COMLINE$,x%,1) = "1" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  37. IF MID$(COMLINE$,x%,1) = "2" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  38. IF MID$(COMLINE$,x%,1) = "3" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  39. IF MID$(COMLINE$,x%,1) = "4" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  40. IF MID$(COMLINE$,x%,1) = "5" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  41. IF MID$(COMLINE$,x%,1) = "6" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  42. IF MID$(COMLINE$,x%,1) = "7" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  43. IF MID$(COMLINE$,x%,1) = "8" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  44. IF MID$(COMLINE$,x%,1) = "9" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  45. IF MID$(COMLINE$,x%,1) = "0" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  46. IF MID$(COMLINE$,x%,1) = "1" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  47. IF MID$(COMLINE$,x%,1) = "2" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  48. IF MID$(COMLINE$,x%,1) = "3" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  49. IF MID$(COMLINE$,x%,1) = "4" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  50. IF MID$(COMLINE$,x%,1) = "5" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  51. IF MID$(COMLINE$,x%,1) = "6" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  52. IF MID$(COMLINE$,x%,1) = "7" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  53. IF MID$(COMLINE$,x%,1) = "8" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  54. IF MID$(COMLINE$,x%,1) = "9" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  55. IF MID$(COMLINE$,x%,1) = "0" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  56. IF MID$(COMLINE$,x%,1) = "V" AND MID$(COMLINE$,x%-1,1) = "@" then GOTO SKIPME
  57. IF MID$(COMLINE$,x%,1) = "@" AND MID$(COMLINE$,x%+1,1) = "V" then GOTO SKIPME
  58. SHELLINE$=SHELLINE$+MID$(COMLINE$,x%,1)
  59. SKIPME:
  60. RETURN
  61.  
  62. DOSHELL:
  63. OPEN "SHELLINE.BAT" for OUTPUT AS #1
  64. PRINT #1, SHELLINE$
  65. CLOSE #1
  66.